home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / Hypergames / BrainGames / Renegade Legion 1.0 / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-11  |  3.6 KB  |  30 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>10</cardCount>
  7.     <cardID>8052</cardID>
  8.     <listID>2259</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on startUp
  17. getHomeInfo
  18. pass startUp -- to a startUp XCMD, if present
  19. end startUp
  20.  
  21. on openstack
  22. send mouseUp to bkgnd button "Next"
  23. send opencard to card "EN-Card"
  24. send mouseUp to bkgnd button "Next"
  25. send mouseUp to bkgnd button "Next"
  26. send mouseUp to bkgnd button "Next"
  27. send mouseUp to bkgnd button "Next"
  28. send mouseUp to bkgnd button "Next"
  29. send mouseUp to bkgnd button "Next"
  30. send mouseUp to bkgnd button "Next"
  31. send mouseUp to bkgnd button "Next"
  32. send mouseUp to bkgnd button "Next"
  33. end openstack
  34.  
  35. on resume
  36. getHomeInfo
  37. pass resume -- to a resume XCMD, if present
  38. end resume
  39.  
  40. on getHomeInfo
  41. global stacks,applications,documents,userName
  42. set lockScreen to true
  43. set lockMessages to true
  44. push this card
  45. go to card "User Preferences" of stack "Home"
  46. put card field "User Name" into userName
  47. set userLevel to card field "User Level"
  48. set powerKeys to the hilite of button "Power Keys"
  49. set blindTyping to the hilite of button "Blind Typing"
  50. put field "paths" of card "stacks" into stacks
  51. put field "paths" of card "applications" into applications
  52. put field "paths" of card "documents" into documents
  53. pop card
  54. set lockScreen to false
  55. set lockMessages to false
  56. end getHomeInfo
  57.  
  58. on searchScript pattern,stackName -- search all scripts of a stack
  59. set lockMessages to true
  60. if stackName is not empty then go to stack stackName
  61.  
  62. if the script of this stack contains pattern
  63. then edit script of this stack
  64.  
  65. repeat with i = 1 to the number of bkgnds
  66. go to card 1 of bkgnd i
  67. if the script of this bkgnd contains pattern
  68. then edit script of bkgnd
  69.  
  70. repeat with j = 1 to the number of bkgnd buttons
  71. if the script of bkgnd button j contains pattern
  72. then edit script of bkgnd button j
  73. end repeat
  74.  
  75. repeat with j = 1 to the number of bkgnd fields
  76. if the script of bkgnd field j contains pattern
  77. then edit script of bkgnd field j
  78. end repeat
  79.  
  80. end repeat
  81.  
  82. repeat with i = 1 to the number of cards
  83. go card i
  84. if the script of this card contains pattern
  85. then edit script of this card
  86.  
  87. repeat with j = 1 to the number of card buttons
  88. if the script of card button j contains pattern
  89. then edit script of card button j
  90. end repeat
  91.  
  92. repeat with j = 1 to the number of card fields
  93. if the script of card field j contains pattern
  94. then edit script of card field j
  95. end repeat
  96.  
  97. end repeat
  98. set lockMessages to false
  99. end searchScript
  100.  
  101. </script>
  102.     <background id="2788" file="background_2788.xml" name="" />
  103.     <background id="4936" file="background_4936.xml" name="" />
  104.     <card id="8052" file="card_8052.xml" marked="false" name="Intro Card" owner="4936" />
  105.     <card id="2925" file="card_2925.xml" marked="false" name="EN-Card" owner="2788" />
  106.     <card id="3300" file="card_3300.xml" marked="false" name="SH-card" owner="2788" />
  107.     <card id="4858" file="card_4858.xml" marked="false" name="AR-Card" owner="2788" />
  108.     <card id="3695" file="card_3695.xml" marked="false" name="WP-Card-1" owner="2788" />
  109.     <card id="5865" file="card_5865.xml" marked="false" name="WP-Card-2" owner="2788" />
  110.     <card id="4083" file="card_4083.xml" marked="false" name="WP-Card-3" owner="2788" />
  111.     <card id="6598" file="card_6598.xml" marked="false" name="WP-Card-4" owner="2788" />
  112.     <card id="6081" file="card_6081.xml" marked="false" name="TR-Card" owner="2788" />
  113.     <card id="7183" file="card_7183.xml" marked="false" name="MISC-Card" owner="2788" />
  114. </stack>
  115.